home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1985 November / 1985-11.d64 / screen custom (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  801b  |  16 lines
  1. 10 poke53280,0:poke53281,0:print"[147]":poke56,128:clr
  2. 20 forg=32768to32876:reada:c=c+a:pokeg,a:next
  3. 30 ifc<>13765thenprint"[147]typing error in lines 100-150.":stop
  4. 40 a$="        ":print"[147]      press restore[146] to activate."
  5. 50 print""a$"poke1020,<border color>"
  6. 60 print a$"poke1021,<screen color>"
  7. 70 print a$"poke1022,<cursor color>"
  8. 80 print a$"poke1023,<character color>"
  9. 90 print"type sys 32785[146] to read new vector values"
  10. 100 data 11,128,11,128,195,194,205,56,48,161,128,32,17,128,76,29,128,160
  11. 110 data 204,185,52,2,153,128,128,200,208,247,96,169,0,141,252,3,169,11
  12. 120 data 141,253,3,169,1,141,254,3,141,255,3,169,58,141,0,128,141,2,128
  13. 130 data 108,20,3,32,129,255,32,138,255,160,204,185,128,128,153,52,2,200
  14. 140 data 208,247,173,255,3,141,33,208,173,252,3,141,32,208,173,254,3,141
  15. 150 data 134,2,169,147,32,210,255,173,253,3,141,33,208,162,255,76,139,227
  16.